00100	BEGIN 
00200	
00300	PRELOAD_WITH [6] 1,[5] 2,1,3,3,2,2,3,4,1,3,2,4,5,3,2;
00400	INTEGER ARRAY A[1:5,1:5];
00500	INTEGER ARRAY I[1:5];
00600	INTEGER J,K,C;
00650	LABEL LOSE,DONE;
00700	
00800	FOR I[1] ← 1 STEP 1 UNTIL 5 DO
00900	FOR I[2] ← 1 STEP 1 UNTIL 5 DO
01000	FOR I[3] ← 1 STEP 1 UNTIL 5 DO
01100	FOR I[4] ← 1 STEP 1 UNTIL 5 DO
01200	FOR I[5] ← 1 STEP 1 UNTIL 5 DO
01250	BEGIN
01300	FOR K ← 1 STEP 1 UNTIL 5 DO
01400	BEGIN
01500		C ← 0;
01600	FOR J ← 1 STEP 1 UNTIL 5 DO
01700	IF A[K,J] = A[I[J],J] THEN C←C+1;
01800	IF C ≠ 2 THEN GO TO LOSE
01900	END;
02000	FOR J←1 STEP 1 UNTIL 5 DO
02200	OUTSTR(CVS(A[I[J],J]));
02300	GO TO DONE;
02400	LOSE:
02500	END;
02600	DONE:
02700	END;